SCREEN 4,640,400,2,4
WINDOW 5,,,0,4
WINDOW OUTPUT 5
PALETTE 2,0.5,0,0
FOR x=0 TO 640 STEP 10  
LINE (x,0)-(640,0.625*x),3
LINE (640,0.625*x)-(640-x,400),3
LINE (640-x,400)-(0,400-0.625*x),3
LINE (0,400-0.625*x)-(x,0),3
NEXT x
CIRCLE (320,200),100,3,,,0.88
PAINT STEP (0,0),2,3
LOCATE 22,33
COLOR 1,2
PRINT "Mouse Position:"
LOCATE 30,32
PRINT "Press 'Q' to Quit."
here:
  zz=MOUSE(0)
  LOCATE 26,37
  PRINT "Y =";MOUSE(2)
  LOCATE 24,37
  PRINT "X =";MOUSE(1)
  PALETTE 0,0,MOUSE(2)/398,0
  PALETTE 3,MOUSE(1)/638,0,0 
  zz$=UCASE$(INKEY$)
  IF zz$="Q" THEN GOTO fin
  GOTO here

fin:
  WINDOW CLOSE 5
  SCREEN CLOSE 4
  END